home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ WinXP Balloon tips.xpl < prev    next >
Text File  |  2002-04-12  |  2KB  |  52 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "TEXT 1"="Enable Balloon Tips"
  5. "UIPATH 1"="Appearance\Interface\ToolTips/BallonTips"
  6. "UIPATH 2"="Appearance\Taskbar"
  7. "NAME"="Windows XP Balloon Tips"
  8. "VERSION"="1.13"
  9. "OSVERSION"="000001"
  10. "LANGUAGE"="VBScript"
  11. "DESCRIPTION 1"="When checked (default), this setting allows the balloon tips to appear for all applications which use the Windows XP styles. "
  12. "DESCRIPTION 2"="Balloon Tips are new to Windows XP, since they are auto-appearing and you can close them. A normal tooltip will only be displayed when you point your mouse over an item and they will disappear as soon as you move your mouse away. A Balloon Tip on the other hand can appear without you moved your mouse but you can close them using the small [X] in the upper-right corner."
  13. "DESCRIPTION 3"="Check the checkbox to restore the default behaviour (tips enabled)."
  14. "COMMENT 1"="Has meaning only when and where XP Styles are enabled."
  15. "AUTHOR"="Pierre Szwarc - Xteq Systems"
  16. "CONTACTURL"="http://www.xteq.com"
  17. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  18. "ADMINRIGHTS"="0"
  19.  
  20. sKey = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\"
  21. sVal = "EnableBalloonTips"
  22. nVal = 1
  23.  
  24. 'Called when the Plugin is started
  25. SUB Plugin_Initialize
  26.  
  27.  if RegValueExists(sKey & sVal) then
  28.     j = RegReadValue(sKey & sVal)
  29.     if j = 1 then
  30.        SetUIElement 1, true
  31.     end if
  32.  else 'value does not exist -> XP defaults to ON
  33.     SetUIElement 1, true
  34.  end if
  35.  
  36.  
  37. END SUB
  38. 'Called when the Plugin should apply the changes
  39. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  40. b = GetUIElement(1)
  41. if b = false then
  42.   RegWriteValue sKey & sVal, 0, 2 ' Set the correct value
  43. else 
  44.   if RegValueExists(sKey & sVAL) then Call RegDeleteValue(sKey & sVal)
  45. end if
  46.  
  47.  
  48. END SUB
  49. 'Called when the Plugin is about to be removed from memory
  50. SUB Plugin_Terminate
  51. END SUB
  52.